D4 A Magazine 


مجله منندی لفي للعرب Magazine‏ 


فهرس الحدد 


التطبيقات بامنجى للكائن و قواعد البيانات__ 


الرسم على المكونات في دلقي“ 
RX Library Ate ùe TForîhStorage ùe‏ 


اكتشاف وحدات دلفي الجاهزة. 


مجلة مندی في للعرب D4A Magazine‏ 


بمناسبة حلول شهر التوبة و الغفران تتقدم إدارة منتدى دلفي للعرب بتهانيها إلى كل أعضاء المنتدى و 
تتمنی لهم صوما مقبولا و ذنبا مغفورا. 
وتعلن عن: 
, بداية نشر دروس يومية من تقديم الأعضاء المشرفين على أقسام المنتدى. كل يوم من أيام رمضان 
سوف تطلعون إن اء الله على درس جديد يعالج موضوع من مواضيع البرمجة بدلفي. 
, فتح باب الترقية للأعضاء النشطين و المتميزين لتمكينهم من دخول قسم المتميزين. 
, الباب مفتوح لكل عضو يرى في نفسه القدرة و العزم لتقديم دروس مفيدة و سهلة الهضم يتم 
تنبيتها و ترقية صاحبها إلى رتبة ‏ مبرمج محترف ‏ دون حساب عدد مشاركاته. 


الكاتب: إدارة المنندى 
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بقلم خالد الشقروني 


قواعد البيانات 


برغم ظهور مفاهيم المنحى للكائن ١2101٤١عء!ا0‏ )ءء زط0 منذ الستينيات إلا أن اعتماد مفاهيم المنجی 
للكائن في تطبيقات الأعمال وقواعد البيانات لم يبدأ ظهورها إلا منذ أواخر الثمانينات. البرمجة بالمنجى 
للكائن تعتمد على تصميم الكود وفق عناصر أو كائنات قائمة بذاتها وشبه معزولة هذه العناصر نجمل في 
داخلها بياناتها وإجراءاتهاء معا مما يجعل من إنشاء وإدارة الكود البرمجي أكثر مرونة. وصيانته وإصلاح 
أخطائه أكثر سهولة. كما يصبر أكثر قابية للتوسع. 


أيضا أتاح مفهوم المنجى للكائن ولأول مرة فرصة النظر إلى العناصر المكونة لعمليات التطوير البرمجي 
بصورة موحدة وشبه متطابقة. إذا سلمنا بأن تطبيقات الأعمال تشمل المستويات/المراحل التالية: الواقع 
الملموس. ثم وصفه . ثم إعداد تصاميم لبرمجتها لاحقا ‏ ثم تنفيذ وبرمجة التصاميم. و تخزين البيانات. 
فإن المنجى للكائن أتاح فرصة النظر إلى النقاط السابقة بمنظر موحد. كالتالي: 


الواقع المعاش رأفراد. جهات. أماكن) - أشياء - كائنات 
نجليل ورسم هذا الواقع - وصف الكائنات في الواقع 
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تصميم برمجي مجاكي للواقع = ترجمة كائنات الواقع من خلال التجليل السابق إلى كائنات في بنيان 
برمجي. 
تخزين بيانات الكائنات في قواعد بيانات تحاكي التصميم البرمجي. 
وبصورة أقل : تصميم واجهات الاستخدام في البرامج انطلاقا من زاوية رؤية الواقع. 


فتكون الدورة الحياتية بأبسط مكوناتها لتطبيق برمجي كالتالي: 


الواقع المعاش: 

أن يكون هناك واقعا ملموسا ومعاشا يراد التصدي له برمجيا لأي غرض كان. كأن تكون هناك مدرسة وبها 
معلمون وطابة وفصول دراسية و مواد تدريس وجملة من العلاقات تربط بين كل واحدة منها بالآخر. 

تجلیل الواقع ورسم حدوده وتفکیکه إلى کائنات وعلاقات: 


معلع الست 0 5 

الاسم N RE‏ أرقام وحروف ارح رع 

سار ادق الاسم امھ ا 
تاوت ادع 4 2 E‏ ا 


ترجمة التحليل السابق إلى تصميم برمجي 


TCourse: TClass TStudent: TClass TProfessor: TClass 
CNo: integer RegNo: string Name: string 
Name: string Name: string BDate: TDate 
Hours: integer BDate: TDate PhonNo: string 


AddStudent (TStudent) | GetCourses :TCourseList 
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نخرين بيانات الكاننات واسترجاعها 
عند تخزين بيانات الكائنات واسترجاعها وباستخدام قواعد البيانات الكائئية يتم الأمر بصورة 
مباشرة وبدون تفصيلات. مثلا عند تخزين كائن طالب تتم العملية بتعليمة مثل: 
(5et)Studen.ا‏ فقوم فاعدة البيانات تلقائيا بحفظ كائن الطالب وحفظ جميع 
الكائنات المرتبطة به كالمواد الدراسية وغبرها. 
كما يتم استرجاع الكائن بنفس السهولة و المباشرة بتعليمة مل: 
et)Studen6(‏ .ط1 . فيتم معها استرجاغ جميع الكائنات المرتبطة به. 


في نظم قواعد البيانات الكائنية 0028٧18‏ تكون قاعدة البيانات على علم بتصميم الكائنات 
وعلاقاتها. فلا حاجة لبناء الجداول و نجديد علاقات الربط بينها ‏ كما لا حاجة لتبيان أي جدول 


يحمل بيانات أي كائن. حيث تقوم بتخزين بيانات الكائنات وعلاقاتها مع الكائنات الأخرى بصورة 
مباشرة دون وسیط أو جسر برمجي. کا رأینا سابقا. 
إلا أنه في الواقع العملي. معظم تطبيقات الأعمال الكائنية تعتمد أنظمة قواعد البيانات العلائقية. 
بدلا من قواعد البيانات الكائئية . و ذلك لأسباب سنذكرها بعد حين. 

مقاربة التصميم السابق إلى جداول في قاعدة بيانات علانقية 


Course Student Professor 

CId: integer RegId: integer TNo:integer<<PK>> 
CNo: integer<<PK>> RegNo: char (10) <<PK>> PName: char (30) 
CName: char (20) SName: char (30) BDate: date 
Hours: integer BDate: date PhonNo: char (10) 


لاحظ. الربط المباشر للكائنات بين التجليل والتصميم/الكود ومقاربة جداول البيانات. 
(ملاحظة : النصاميم السابقة لتوضيح الفكرة فقط. ويعوزها الدفة والمنانة) 
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مفاهيم المنجى للكائن و قواعد البيانات 

قواعد البيانات الكائنية لم تصل إلى المستوى الذي تحقق فيه معظم احتياجات الصناعة من متطلبات مناولة 
البيانات. كما تعوزها المواصفات القياسية و لغة استعلام موحدة. لذا كان استخدامها العملي مجصورا في أنواع 
تطبيقات محدودة. التي تكون متطلباتها ضمن إمكانيات نظام قواعد البيانات الكائنية. أو تلك التي تكون 
بيانات الكائنات فيها متشعبة ومتشابكة كأن نجوي تكوين شجري متعدد المستويات من كائنات مختلفة بحيث 
يصعب تخزين بياناتها بنظم قواعد بيانات غير كائنية. 


لذلك نجد أن تطبيقات الأعمال التي تعتمد المنجى الكائني تتجه نجو الاستعانة بنظم قواعد بيانات 
الأكثر رسوخا وثباتا. وهنا نقصد بالطبع أنظمة قواعد البيانات العلائقية ۸28٧S‏ . التي أثبتت مع 
مرور الزمن قوة ومتانة المفهوم الذي بني عليه تصميمها . 


قواعد البيانات العلائقية 

في مجال قواعد البيانات فإن المنتشر و السائد هي نظم إدارة قواعد البيانات العلائقية ٧S‏ ۸(8 التي 
أثبتت فعاليتها و إعتماديتها في حفظ البيانات و المحافظة على مصداقيتهاء لكن بنيانها لا يدعم مفاهيم 
المنجى للكائن. وفي سبيل الحفاظ على متانة تصميم الكائنات في التطبيق و فصله عن العمليات الخاصة 
بالنفاذ لقاعدة البيانات وابقاؤها معزولة في حيز خاص بها؛ يضطر القائمون على التطبيق البرمجي إلى 
إنشاء وسيط بين الكائنات و قواعد البيانات يتم فيه إنشاء المقاربات بين صنفيات الكائنات و جداول قواعد 
البيانات. كما تتم في هذا الوسيط أيضا عمليات ترجمة البيانات ونقلها بين قواعد البيانات والكائنات. 
والجرص قدر الإمكان على عدم إرهاق الكائنات ونجميلها أعباء إضافية نخص ديمومة البيانات وحفظهاء 
وجعلها معزولة قدرالامكان عنها . 


اقامة هذه الوسيط تتطاب جهدا إضافيا. خاصة إذا كان أعداد صنفيات الكائنات كبيرا. وعلاقاتها كثبرة 
ومتعددة المستوى و ما يتطلبه من إنشاء صنفيات وسيطة نحاكي صنفيات النظام › وتقسيم جيد وتوزيع سليم 
لبيانات الكائنات في جداول قاعدة البيانات لضمان سلامة وصجة استرجاها مرة أخرى ككائنات بنفس الوضع 


ء 


الأصلي. 
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لذلك ظهرت أدوات وإطارات عمل تتصدى لهذه المهمة 0O۸١‏ ونجعل من أمور المقاربة بين الكائنات وقواعد 
البيانات العلائقية أكثر سهولة. 


أدوات المقارية ORM‏ 
أدوات المقاربة 113م م2 ¬ 21د 10ا1aءr-)cعز‏ ا0 نختلف في مدى سهولة أو صعوبة تطويعها للربط بين 
الكائنات وقواعد البيانات. كما أذها تتفاوت فيما تقدمه من مزايا وخدمات. بعضها يوفر إمكانية إنشاء 
مخطط جداول قاعدة البيانات انطلاقا من الصنفيات كعءيهآء الموجودة. وبعصها الآخر بالعكس من ذلك 
يرتكز على وجود مخطط لجداول قاعدة البيانات يعتمد عليها لإنشاء الصنفيات وتوليد التوليف أو الكود 
البرمجي. و بعضها يقدم الاثنين معا. 


إلا أن لأدوات 0۸١‏ سلبياتها أيضا. فهي وإن كانت توفر الوقت والجهد بالنسبة للتطبيقات الضخمة فإنها 
تشكل عبنًا غير مبرر للتطبيقات الصغبرة و حتى المتوسطةء بما تفرضه من توصيفات. وتولده من صنفيات 
وسيطة وأكواد متشعبة. كما أنها تشكل قيدا غير مرن للمطورين الذين يضطرون للتعامل مع قواعد البيانات 
مباشرة بسبب عدم قدرة أو كفاءة الأدوات عند التعامل مع بعض الاستعلامات المعقدة. 


أيضا أدوات 0۸١۷‏ قد تفرض حلولا قد تؤدي إلى تصميم سيء لقاعدة البيانات. أو تنظيم غير مجكم 
لكائنات النظام. زيادة على المراعاة المستمرة للمجافظة على التوافق الجيد والكفوء بين كائنات النظام 


وكاننات قاعدة البيانات أي الجداول كلما تتطور النظام أو تغبرت متطلباته . 


لذلك فإن قرار استخدام أدوات 0۸١‏ جاهزة أو عدم استخدامها يعتمد على النظرة المنوازنة لما ستقدمه 
من مزايا وما تفرضه من تصحيات في سياق النظام المستهدف. 
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ما هي أدوات 0۸١۷‏ المتوفرة لبيئة دلفي 
هذه بعض برمجيات 0۸۷ التي تستهدف التطبيقات المطورة بلغة دلفي أو ما يوافقها. 


P۴ ,‏ 10). مصدر مفتوح 

, ۴ c0Pہا‏ . مصدر مفتوح 

ر„ g-]rameW OK‏ . مصدر مفتوح لنطبيقات الويب. آخر إصدار يدعم دلفي 2007. 

[stant [eC ,‏ . مصدر مفتوح» آخر إصدار یدعم دلقي 2006 

Synopse SQا1te3‎ Framework ,‏ . مصدر مفتوح 

Delph Spring Framework ,‏ . مصدر مفتوح 

CnPack Jaرف‎ je Delphi Hibernate , 

DObject , 

ObjectSight , 

Bo11 for Delphi ,„‏ ظهرت في 2002 وقامت بورلاند لاحقا في 2006 بشراء الشركة و 
لم يظهر أي إصدار جديد لها منذ حينهاء آخر نسخة تدعم دلقي 2007. 
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Kachwahed ٍ۾lê‎ 


يقوم نظام التشغيل ل١۷1‏ عادة برسم المكونات على النموذج عند تشغيل البرنامج بشكل تلقائي. 
ويسمح ۷WS‏ ۷1110 بتخصيص الرسم على بعض المكونات لإعطانها واجهة أخرى... 

عند ضبط خاصیۂ 0۷1۸٥۲2۲ W‏ علی القیمۂ 1۲٤‏ للمکون لن یقوم ۷1٦٥ WS‏ برسم عناصر 
المكون. تسمح هذه الخاصية بتعديل شكل رأو مظهر المكون من خلال التقاط حدث رسالة 0S‏ لم۷1 التي 
يرسلها لكل عنصر من المكون. 


يتلقى النموذج الرئيسي رسالة الحدث ۷MN_(R۸۸ W11٤‏ عند الجاجة إلى رسم شكل المكون. 


وحينها يقوم النموذج بتنفيذ إجراء مخصص لتخصيص شكل مختلف للمكون. 
حسنا... لست بحاجة إلى معرفة كل هذه التفاصيل حيث تقوم دلفي بكل ذلك آلياء لنتجحدث بلغة الأمالة. 
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مال بسيط لتوضيح الفكرة: 
لنلاحظ تعريف الإجراء ٣ع n٣ usto0o × D۲2 w1)‏ للمكون 1ew‏ 11141۷ المخصص لتخصیص مظھر 


procedure TForm1.ListViewFilesCustomDrawItem (Sender: TCustomListView; 
Item: TListlItem; State: TCustomDrawState; var DefaultDraw: Boolean); 


ما يهمنا هنا )ء1 1)٠:‏ وهو يمل أسطر المكون. ويملك خاصية ×ء [١1‏ التي تسمح بتحديد 
سطر معین. فمثلا لو کتبنا هذا: 


if Item. Index = 1 then Sender.Canvas. Brush.Color := clBlue;, 


111012010 


Jpeg .jp9 1 011032010 


وهنا ملا نغبر الأسطر بالتناوب بين الأزرق والأحمر: 


with Sender.Canvas. Brush do //Sender jiùgÉSkاl‎ Jنٹفمج٧ ب‎ 


begin 
case Item. Index mod 2 of تعني تحسب باقي القسمة مف0ص//‎ 
0: Color := clBlue;, 
1: Color := clRed; 
end; 
end; 


يملك النمط 1٥W‏ ۷ء111 أحداث أخری مشابھة s0 ۳٣512 W‏ ا٣0۸‏ لتجحدید مظھر مختلف للمکون 
ككل» و1 عط 0NCuston 2w Su‏ لتغيير مظهر التفاصيل رأو الأعمدة باعتبار طريقة العرض 
sR epo‏ من الخاصية 1ر5 V1 w‏ للمكون). 
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ناخد ان خر أف فة 
نريد رسم الخطوط ركاه" في مکون ×0 11118 ولیکj ListB٘oxF'onts‏ 
لتعبنته بأسماء الخطوط المتوفرة؛ يمكن قراءة مجتوى المتغير ١ء٥۲٥5‏ المعرف في المكتبة كهم.عصإه۴ 
مال عند إقلاع النموذج ر(٥٤2٥۲ 01٣‏ نكتب: 
procedure TForm1.FormCreate (Sender: TOb ject);‏ 
begin‏ 


ListBoxFonts. Items := Screen.Fonts;, 
end; 


الآن في الحدث ١١إء)‏ »ه011 نرسم باستخدام ٥2١۷35‏ المكون شكل الخط لكل سطر في المكون 
:ListBoxFonts‏ 


procedure TForm1.ListBoxFontsDrawItem (Control: TWinControl; Index: Integer; 
Rect: TRect; State: TOwnerDrawState) ; 

begin 
with ListBoxFonts do 


begin 
Canvas.Fil [Rect (Rect); {01} 
Canvas.Font. Name := ListBoxFonts. Items [Index]; {02} 
Canvas. TextOut (Rect.Left, Rect.ToPp, ListBoxFonts. Items [Index] ); 
end; 
end; 


الشرح: 

(01): عند رسم الأسطر رإء)! 01512۷ نقوم بتجديد إطار السطر اء 1R‏ :1٥ء۸‏ المعرف في 
الإجراء للرسم .C02۸۷258‏ 

هنا تقوم بتجديد خط الكتابة للرسم .]021۸۷2S‏ 

وفي أخبرا نقوم برسم نص كل سطر وفق الخصائص التي حددناها في 1۷35 C2‏ باستخدام 1۶١×۲01)‏ . 


الآن لقراءة اختیار الخط ر٤٣٥‏ من المکون 0×۴٥٣٤5‏ 1118 نکتب سینا مل: 


TextLabel.Font.Name := ListBoxFonts. Items [ListBoxFonts. ItemIndex ] ; 
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يمكن فعل ذلك مع أي مكون مشابه ر×0 08طد 1٤01‏ مثا أمثلة أخرى في المرفق. 


أفكار أخرى: 
, يمكن رسم مكونات أخرى على المكونات الأصلية من خلال تجديد الإطار راء 1R‏ ثم الرسم على 
الأسطر بنفس الطريقة 
, رسم صورة في خلفية المکون من خلال ۷25 C21‏ باستخدام 2¬ )1'81 
, تخصیص شکل مختلف أو ٦1٥٥٩‏ باستخدام بعض توابع ۸۴'1 . 
غير ذلك المجال مفتوح لمخيلتك ( 
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Lam.Abdeldjalil plê 


TFormStorage 
i: 


مکون من ية 


RSkibrary 


هو مكون من مكونات حزمة راة1ط11 ×۸ . يسمح بقراءة و كنابة خصائص الكونات و حفظها في ملف من 
نوع 1١1‏ أو في احد مفاتيح سجل النظام راوه R‏ س0١۷1‏ بدون كتابة أوامر إضافية من المستعمل 
> يدعم جميع المكونات ر الأصلية المنبتة مع دلفي افتراضيا أو المضافة باستعمال المكون لن تبقى عالقا في 
عملية تسيبر عشرات ملغات ن11. 


طريقة عمل المكون: 
تبدأ عملية المعالجة بعد الانتهاء من نجديد المكونات المراد حفظ خصائصها و تفعيل خيار الحفظ للمكون. 
في حدث إغلاق الفورم يقوم المكون بحفظ خصائص المكونات في ملف من نوع 1١1‏ أو حفظها مباشرة 
في سجل النظام. 
- في حدث إظهار الفورم يقوم المكون بقراءة قيم الخصائص المحفوظة سابقا. 
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خصائص €ع01]2£) 1۴°15 : 

خاصية لآ۲)ءاعه ۸ءء : لجفظ الخصائص في سجل النظام. افتراضيا الخاصية ليست مفعلة أي أن 
المعلومات المنجصل عليها نحفظ في ملف 111. 

خاصية ۸-1۷١‏ : لتفعيل و إلخاء تفعيل الحفظ . 

خاصیة :Ac)1۷٥ ٤٥٤۲٥1‏ لجفظ آخر مکون کان نشط قبل الإغلاق . 

خاصية ۳١۲۳ ۲0١110١‏ : لجفظ طول و عرض الغورم و مكان تواجدها في الشاشة. 

. wSMaximized gl wsNo1 mal لجحفظ حالة الفورم‎ : Window خاصية ع52‎ 


مال عن استعمالها : 
حفظ خصائص الفورم . حالة الفورم و النص الموجود في مكون ٤1۲1‏ 
1 ضع المکون 1۲٥۲1۱ 5)0۲22 ٤‏ على الفورم . 
2 اختر اسم الملف 111 الذي سوف نجفظ فيه الخصائص . 
3 اضغط مرتين على المكون أو على خاصية 50۲۵۲۲٥١‏ ثم اضغط على رثلاثة نقاط ... لاستدعاء 
.FormStorage Designer‏ 
4 اختر المكون المراد حفظ خاصية من خصائصه. 
5 أختر الخاصية المراد حفظها. 
6 اضغط علی ۸d‏ لإضافتھا ثم اضغط على 0K‏ 
انظر الشكل رقم 01. 


ملاحظة: يمكن إضافة أكثر من خاصية لكون واحد كما يمكن حفظ خصائص عدة مكونات في ملف 111 
واحد فقط . 


لتحميل المكتبة اتبع الرابط http://www.delphi4arab.com/forum/showthread.php?t=3479:‏ 
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STRELiTZIA ۾‎ 


اكتشاف وحدات دلفي الجاهرة 


ST 


:Printers.pas Sadly 
X:\Program Files\Borland\Delphi7\Source\Vc1 : lA) lue 


uses printers; : lila dil 
مال عملي للحصول على قائمة الطابعات المأبتة على النظام:‎ 


var PrintersList: TPrinter; 


begin 
PrintersList := TPrinter.Create;, 
Memol1l. Lines := PrintersList. Printers, 


PrintersList. Free; 
end; 
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:StrUtils.pas Sal g 


X:\Program Files\Borland\Delphi7\Source\Rt]\Common : A) lue 


uses StrUtils; : lila dil 


معال عملي لعکس احرف اسم معین: 
procedure TForm1 . Button1Click (Sender: TObject);‏ 
begin‏ 
Memol1l. Lines. Add (ReverseString ( 'Delphi4Arab'));‏ 
end;‏ 


لنحصل على هذه النتيجة: barA4ihp1e‏ 
وحدة )11١‏ 5)۲0 نجنوي على مجموعة كبيرة من الدوال و الإجراءات منخصصة في معالجة المنغبرات من 
ثوغ 5۲113 و عانلتها. 


:Math.pas وحدة‎ 
X:\Program Files\Borland\Delphi7\Source\Rtl\Common : A) lue 
uses Math; : lila dil 


مال عملي لبعض العمليات الحسابية: 


procedure TForm1 . Button1Click (Sender: TObject); 

begin 
Memo1l. Lines. Add (FloatToStr (Power (2, 3))); 
Memol1l. Lines. Add (FloatToStr (Min (2, 3))); 
Memol1l. Lines. Add (FloatToStr (Max (2, 3))); 

end; 


وحدة 1311.35" نجتوي على مجموعة كببرة من الدوال و الإجراءات متخصصة في معالجة العمليات 
الحسابية. 
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:DateUtils.pas وحدة‎ 


X:\Program Files\Borland\Delphi7\Source\Rtl\Common : A) lue 


uses DateUtils; : lila dil 


مثال عملي للحصول على تاريخ الأمس. اليوم والغد: 


procedure TForm1 . Button1Click (Sender: TObject); 
begin 
Memol1l. Lines. Add (DateToStr (DateUtils. Yesterday)); 
Memo1l. Lines. Add (DateToStr (DateUtils. Today)); 
Memo1l. Lines. Add (DateToStr (DateUtils. Tomorrow) );, 
end; 


وحدة .]0)1 ء)3( نجتوي على مجموعة كبيرة من الدوال و الإجراءات منخصصة في معالجة 
العمليات الخاصة بالتواريخ. 

الخلاصة: 

دلفي مدجح بمكتبات جاهرة الاستعمال تعالح ميادين مختلفة من البرمجة» و اطلاعك عليها حتى و إن كان 
مجرد تصفح لإشباع حب الاستطلاع سوف يرجع عليك بغائدة كبيرة و يكون عنصر فعال في توسيع مفاهيمك 


¢ 


الارمجيه. 


+ + 


لمشاركتك في مقالات المجلة. أرسل فقط المقالة بصيغة 00٩‏ أو 0٥>‏ دون تنسيق مسبق إلى إدارة المنتدى 


